home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs32.d81 / examples.arc / PUSHDIR.A < prev    next >
Text File  |  1989-12-01  |  616b  |  22 lines
  1. ; pushdir.asm
  2. ;========================
  3. ; Save current directory
  4. ;========================
  5.                                   
  6. int01       = $1701               
  7. int0e       = $170e               
  8.                                   
  9. star        = $0b00               
  10.             .wor star             
  11.             * = star              
  12.  
  13.             jmp pushdir
  14.             dw  Date
  15.                
  16. pushdir     jsr int01
  17.             sta $1bdb             
  18.             lda #0                
  19.             jmp int0e             
  20.                                   
  21.             .end                  
  22.